home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 36
/
036.d81
/
print screen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
34 lines
0 ifmmthen60000
10 ifa=.thena=1:load"print screen.ml",8,1
15 poke53280,8:poke53281,13
20 print"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
30 fora=1to23:print"[221]"spc(38)"[221]";:next
40 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
50 fora=217to242:pokea,peek(a)or128:next
60 print"[149] [204][207][193][196][211][212][193][210] [208]resents:"
70 print" "
80 print" [208]rint [211]creen [213]tility "
90 print" "
100 print" by [196]onald [208]. [205]aple "
110 print" "
120 print" ([195])opyright 1987 "
130 print" "
140 print" "
150 print" [149][208]ress [211][208][193][195][197] to continue.":poke198,.
160 geta$:ifa$<>" "then160
165 print"[147] [208]rint [211]creen [213]tility"
170 print" [211]ince this program is a machine"
180 print"language routine wedged into the [201][210][209]"
190 print"vector, we can't provide a demo for"
200 print"you. [212]he commands are as follows:"
210 print"[[195][207][205][205][207][196][207][210][197] [203][197][217]] + [198]1 - [208]rint [211]creen"
220 print"[[195][207][205][205][207][196][207][210][197] [203][197][217]] + [198]3 - [212]oggles output"
230 print"[[195][207][205][205][207][196][207][210][197] [203][197][217]] + [198]5 - [196]isables wedge"
240 print" [212]ry it out!"
250 print" [212]o return to loadstar, enter:"
260 print" goto loadstar":sys65418:sys49152:mm=-1:end
60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60010 ifer<>63thenend
60020 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60030 sys65418:load"hello connect",8